home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Item MB Quick & Easy 2.0
/
Item MB Quick & Easy 2.0.iso
/
mbfacad
/
mb33705.lsp
< prev
next >
Wrap
Text File
|
1998-03-15
|
10KB
|
290 lines
;=============337.05 VIELKEILWELLE
(EAITDBL "0033705")
(EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
(princ)
(defun C:33705S1 (/ P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18
E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 Li Wi KWi KWix DWx W90 Wix BName)
(EAITDBL "0033705")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(initget (+ 1 2 4))
(EAITmsg "mb_mld10" "\n" "005" nil) ;Laenge
(setq Li (getdist))
(setq Li (EAITck Li))
(setq Li (atof (rtos (abs Li) 2 1))) ;Laenge der Vielkeilwelles
(initget 1)
(EAITmsg "mb_mld10" "\n" "004" nil) ;Winkel
(setq Wi (getangle P1))
(setvar "OSMODE" 0)
(initget 1)
(EAITmsg "mb_mld10" "\n" "008" nil) ;Konstruktionsrichtung
(setq KWi (getangle P1))
(setq Wix (EAITbig Wi) KWix (EAITbig KWi))
(if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
(cond
( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
( (and (>= DWx 90) (< DWx 180))
(progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
)
)
( (and (>= DWx 180) (< DWx 270))
(progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
)
)
( T (setq W90 -90.0) )
)
(setq P2 (polar P1 Wi Li)
P3 (polar P1 (+ Wi (EAITgib W90)) 1.5)
P4 (polar P2 (+ Wi (EAITgib W90)) 1.5)
P5 (polar P1 (+ Wi (EAITgib W90)) 3.8)
P6 (polar P2 (+ Wi (EAITgib W90)) 3.8)
P7 (polar P1 (+ Wi (EAITgib W90)) 5.2)
P8 (polar P2 (+ Wi (EAITgib W90)) 5.2)
P9 (polar P1 (+ Wi (EAITgib W90)) 6.7)
P10(polar P2 (+ Wi (EAITgib W90)) 6.7)
P11(polar P1 (+ Wi (EAITgib W90)) -1.5)
P12(polar P2 (+ Wi (EAITgib W90)) -1.5)
P13(polar P1 (+ Wi (EAITgib W90)) -3.8)
P14(polar P2 (+ Wi (EAITgib W90)) -3.8)
P15(polar P1 (+ Wi (EAITgib W90)) -5.2)
P16(polar P2 (+ Wi (EAITgib W90)) -5.2)
P17(polar P1 (+ Wi (EAITgib W90)) -6.7)
P18(polar P2 (+ Wi (EAITgib W90)) -6.7)
)
(command EAITlay EAITlse "EAITstpg" "")
(command EAITlin (polar P1 (+ Wi Pi) 5)(polar P2 Wi 5) "")
(setq E1 (entlast))
(command EAITlay EAITlse "EAIT50" ""
EAITlin P3 P4 "" EAITlin P5 P6 "" EAITlin P7 P8 "" EAITlin P9 P10 ""
EAITlin P11 P12 "" EAITlin P13 P14 "" EAITlin P15 P16 "" EAITlin P17 P18 ""
EAITlin P9 P17 "" EAITlin P10 P18 ""
)
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3)
E5 (entnext E4) E6 (entnext E5) E7 (entnext E6)
E8 (entnext E7) E9 (entnext E8) E10 (entnext E9)
E11 (entnext E10)
)
(setq BName (EAITbnr))
(command EAITblo BName P1 E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 "")
(command EAITege BName P1 "" "" "")
(setq Li (rtos (abs Li) 2 1))
(command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 5) (+ Wi (EAITgib W90)) 2) "" "" (+ (EAITbig Wi) W90)
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
)
(EAITvarz2)
(princ)
);defun S1
(defun C:33705SV (/ P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18
E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 Li Wi KWi KWix DWx W90 Wix BName)
(EAITDBL "0033705")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(initget (+ 1 2 4))
(EAITmsg "mb_mld10" "\n" "005" nil) ;Laenge
(setq Li (getdist))
(setq Li (EAITck Li))
(setq Li (atof (rtos (abs Li) 2 1))) ;Laenge der Vielkeilwelles
(setq Wi (/ Pi 2))
(setvar "OSMODE" 0)
(initget 1)
(EAITmsg "mb_mld10" "\n" "008" nil) ;Konstruktionsrichtung
(setq KWi (getangle P1))
(setq Wix (EAITbig Wi) KWix (EAITbig KWi))
(if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
(cond
( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
( (and (>= DWx 90) (< DWx 180))
(progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
)
)
( (and (>= DWx 180) (< DWx 270))
(progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
)
)
( T (setq W90 -90.0) )
)
(setq P2 (polar P1 Wi Li)
P3 (polar P1 (+ Wi (EAITgib W90)) 1.5)
P4 (polar P2 (+ Wi (EAITgib W90)) 1.5)
P5 (polar P1 (+ Wi (EAITgib W90)) 3.8)
P6 (polar P2 (+ Wi (EAITgib W90)) 3.8)
P7 (polar P1 (+ Wi (EAITgib W90)) 5.2)
P8 (polar P2 (+ Wi (EAITgib W90)) 5.2)
P9 (polar P1 (+ Wi (EAITgib W90)) 6.7)
P10(polar P2 (+ Wi (EAITgib W90)) 6.7)
P11(polar P1 (+ Wi (EAITgib W90)) -1.5)
P12(polar P2 (+ Wi (EAITgib W90)) -1.5)
P13(polar P1 (+ Wi (EAITgib W90)) -3.8)
P14(polar P2 (+ Wi (EAITgib W90)) -3.8)
P15(polar P1 (+ Wi (EAITgib W90)) -5.2)
P16(polar P2 (+ Wi (EAITgib W90)) -5.2)
P17(polar P1 (+ Wi (EAITgib W90)) -6.7)
P18(polar P2 (+ Wi (EAITgib W90)) -6.7)
)
(command EAITlay EAITlse "EAITstpg" "")
(command EAITlin (polar P1 (+ Wi Pi) 5)(polar P2 Wi 5) "")
(setq E1 (entlast))
(command EAITlay EAITlse "EAIT50" ""
EAITlin P3 P4 "" EAITlin P5 P6 "" EAITlin P7 P8 "" EAITlin P9 P10 ""
EAITlin P11 P12 "" EAITlin P13 P14 "" EAITlin P15 P16 "" EAITlin P17 P18 ""
EAITlin P9 P17 "" EAITlin P10 P18 ""
)
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3)
E5 (entnext E4) E6 (entnext E5) E7 (entnext E6)
E8 (entnext E7) E9 (entnext E8) E10 (entnext E9)
E11 (entnext E10)
)
(setq BName (EAITbnr))
(command EAITblo BName P1 E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 "")
(command EAITege BName P1 "" "" "")
(setq Li (rtos (abs Li) 2 1))
(command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 5) (+ Wi (EAITgib W90)) 2) "" "" (+ (EAITbig Wi) W90)
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
)
(EAITvarz2)
(princ)
);defun SV
(defun C:33705SH (/ P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18
E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 Li Wi KWi KWix DWx W90 Wix BName)
(EAITDBL "0033705")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(initget (+ 1 2 4))
(EAITmsg "mb_mld10" "\n" "005" nil) ;Laenge
(setq Li (getdist))
(setq Li (EAITck Li))
(setq Li (atof (rtos (abs Li) 2 1))) ;Laenge der Vielkeilwelles
(setq Wi Pi)
(setvar "OSMODE" 0)
(initget 1)
(EAITmsg "mb_mld10" "\n" "008" nil) ;Konstruktionsrichtung
(setq KWi (getangle P1))
(setq Wix (EAITbig Wi) KWix (EAITbig KWi))
(if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
(cond
( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
( (and (>= DWx 90) (< DWx 180))
(progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
)
)
( (and (>= DWx 180) (< DWx 270))
(progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
)
)
( T (setq W90 -90.0) )
)
(setq P2 (polar P1 Wi Li)
P3 (polar P1 (+ Wi (EAITgib W90)) 1.5)
P4 (polar P2 (+ Wi (EAITgib W90)) 1.5)
P5 (polar P1 (+ Wi (EAITgib W90)) 3.8)
P6 (polar P2 (+ Wi (EAITgib W90)) 3.8)
P7 (polar P1 (+ Wi (EAITgib W90)) 5.2)
P8 (polar P2 (+ Wi (EAITgib W90)) 5.2)
P9 (polar P1 (+ Wi (EAITgib W90)) 6.7)
P10(polar P2 (+ Wi (EAITgib W90)) 6.7)
P11(polar P1 (+ Wi (EAITgib W90)) -1.5)
P12(polar P2 (+ Wi (EAITgib W90)) -1.5)
P13(polar P1 (+ Wi (EAITgib W90)) -3.8)
P14(polar P2 (+ Wi (EAITgib W90)) -3.8)
P15(polar P1 (+ Wi (EAITgib W90)) -5.2)
P16(polar P2 (+ Wi (EAITgib W90)) -5.2)
P17(polar P1 (+ Wi (EAITgib W90)) -6.7)
P18(polar P2 (+ Wi (EAITgib W90)) -6.7)
)
(command EAITlay EAITlse "EAITstpg" "")
(command EAITlin (polar P1 (+ Wi Pi) 5)(polar P2 Wi 5) "")
(setq E1 (entlast))
(command EAITlay EAITlse "EAIT50" ""
EAITlin P3 P4 "" EAITlin P5 P6 "" EAITlin P7 P8 "" EAITlin P9 P10 ""
EAITlin P11 P12 "" EAITlin P13 P14 "" EAITlin P15 P16 "" EAITlin P17 P18 ""
EAITlin P9 P17 "" EAITlin P10 P18 ""
)
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3)
E5 (entnext E4) E6 (entnext E5) E7 (entnext E6)
E8 (entnext E7) E9 (entnext E8) E10 (entnext E9)
E11 (entnext E10)
)
(setq BName (EAITbnr))
(command EAITblo BName P1 E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 "")
(command EAITege BName P1 "" "" "")
(setq Li (rtos (abs Li) 2 1))
(command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 5) (+ Wi (EAITgib W90)) 2) "" "" (+ (EAITbig Wi) W90)
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
)
(EAITvarz2)
(princ)
);defun SH
(defun C:33705Q ( / P1 Wi)
(EAITDBL "0033705")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(setvar "ORTHOMODE" 0)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(setvar "OSMODE" 0)
(setvar "ORTHOMODE" 1)
(EAITmsg "mb_mld10" "\n" "003" nil) ;Drehwinkel
(command EAITege (strcat EAITpfn "33705Q") P1 "" "" EAITofkei pause)
(setq Wi (EAITbw))
(command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 327)) 4) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITvarz2)
(princ)
);defun Q
(princ)